﻿Public Class ClsDfrmNewAmodSolution
    'represents data object for frmNewAmodSolution

#Region "Attributes"
#Region "Private attributes"
#End Region
#End Region
#Region "Properties"
#Region "Public attributes"
#End Region
#End Region

    '#######################################
    'execute function
    Public Function Execute(ByRef OoAction As ClsAction) As GeActionResult
        Try
            Dim LeResult As GeActionResult = GeActionResult.kkOk
            '---------------------------------------------
            'ACTION BEFORE ACTION
            '---------------------------------------------

            '---------------------------------------------
            'ACTION
            '---------------------------------------------
            Select Case OoAction.Action
                Case GeAction.kkaModSolutionNewSolution
                    Dim LoFrmNewaModSolution As frmNewAmodSolution = New frmNewAmodSolution
                    OoAction.SetData(Me, "CLSDFRMNEWAMODSOLUTION")
                    LeResult = LoFrmNewaModSolution.Execute(OoAction)
            End Select
            '---------------------------------------------
            'ACTION AFTER ACTION
            '---------------------------------------------

            '---------------------------------------------
            Return LeResult
            '---------------------------------------------

        Catch ex As Exception
            LogEventFromException(ex, , , )
            Return GeActionResult.kkError
        End Try
    End Function
    '#######################################

End Class
